perm filename TESTS[PAG,LCS] blob
sn#428474 filedate 1979-04-02 generic text, type T, neo UTF8
<INIT
SRT=12800;
INS 1; < INSTRUMENT 1
SIMP
;
OSC P4 FP3 B2 P5;OUT B2 B1;END;<ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
INS 2; < INSTRUMENT 2
TOOT
CLAR
BRIT
BUZZ
;
OSC P4 P2 B2 P5;OSC B2 FP3 B2 P6;OUT B2 B1;END;
SIN 1 1; <SINE WAVE F1
SEG 2 0 1 .9 6 1 11 .9 82 .7 90 0 100; < MEZZO LEGATO F2
SEG 3 0 1 1 3 1 10 .4 23 .15 40 0 100; < STACCATO F3
SIN 4 .5 0 .3 0 .2 0 .1; < CLAR F4
SIN 5 .3 .4 .2 0 0 0 0 .2 0 0 0 0 .1; < BRIT F5 (TO 12TH HARM.)
SEG 6, -1 1 1,7, -1,14, -1,100; < BUZZ PULSE F6
TOOT 0 .12 C 1000 F2 F1;P6=F4;CLAR .12;P6=F5;BRIT .24;P6=F6;BUZZ .36;
SIMP .48 .5 A 1000 F1;FINISH;
< INTO
INS 1; < INSTRUMENT 1
TOOT
CLAR
BRIT
BUZZ
;
OSC P4 P2 B2 P5;
OSC B2 FP3 B2 P6 ;
OUT B2 B1;END; < ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 2 0 0 .9,32 1,57 1,430 .7,465 0 511; <F2 MEZZO LEG.
GEN 0 1 3 0 0 1,16 1,56 .4,159 .1,230 0,511; <F3 SEMI-STACC.
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
GEN 0 2 5 .9 .2 .4 .2 .2 .1 .05 0 .1 9;<F5 , 9 HARMONICS
GEN 0 2 1 1 1; <SINE WAVE
GEN 0 1 6, -1 0 1 12 ,-1 24, -1 511;<F6 PULSE
SRT←12800;
PLAY;TOOT 0 .2 A/4 1000 F2 F6;
CLAR .2 .3 A,, F3 F4; FINI;
< INFM
SRT←12800;
INS 1;< INSTRUMENT 1
FM
FM2
;
OSC P4 P2 B4 P5 ;
SUB P8 P7 B3;
MLT FP9 B3 B3;
OSC B3 P2 B3 P10;<RAMP
MLT FP9 P7 B5;<P7 IS 1ST M.I., P8 = 2ND
AD2 B5 B3 B3;
OSC B3 FP9 B3 F1 ;<MODULATOR, P6 CONVTS AS FREQ.(MOD. FREQ.)
AD2 FP3 B3 B3;<ADD IN CENTER FREQ.
NOS B4 B3 B4 F1 ; < A NOSCIL
OUT B4 B1;END;< ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 2 .01 0 1 25
1 400 0 511;< F2 GEN INPUT MUST ALWAYS START NEW LINE!
GEN 0 2 1 1 1;<F1 , 1 HARMONIC SINE WAVE
GEN 0 1 3 0 0 1 511;<F3 PUTS LINE FROM 0 TO 1 IN 511 STEPS
< IN6 .SCR -- RANDOM NUMBER= 1
PLAY;
FM 0.00 .5 C/2 ,-1600.0 F2 0 0 30 C/2 F3;
FINI;
< INGL
SRATE←12800;
INS 1; < INSTRUMENT 1
GLIS < INST 1 P7 IS DESTINATION OF GLISS.
;
OSC P4 P2 B2 P5 ;SUB FP7 FP3 B3;OSC B3 DP8 B3 P9;
AD2 P3 B3 B3;OSC B2 B3 B2 P6;OUT B2 B1;END;
SEG 2 0 0 1 6 1 80 0 100;< F2 GEN INPUT MUST ALWAYS START NEW LINE
GEN 0 2 4 .7 0 .5 0 .4 5;<F4 , 3 HARMONICS (1,3,5)
GEN 0 1 6 0 0 1 511;<F6 PUTS LINE FROM 0 TO 1 IN 511 STEPS
GLIS 0.00 .6 G/2 500.00 F2 F4 G*2 .3 F6 ;
FINISH;
< INEN
INS 3; < INSTRUMENT 3
ENV
;
ENV P4 P5 B2 DP7 DP8 DP9 P10 ;
COS B2 FP3 B2 P6 ;
OUT B2 B1;END;
SEG 2 0 1 1 8 1 10 .2 25 1 50 0 75 0 100; <F2 ENVELOPE
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
SIN 1 1; <F1 SINE WAVE
SRT←12800;
<ENV 0 .14 A*2 1200 F2 F1 .04 P2*2 .04 0;
<ENV .14 .14 C 1200 F2 F1 .04 P2*2 .04 ,-1;
<ENV .28 .14 D*2 1200 F2 F1 .04 P2*2 .04 0;
<ENV .42 .14 G/2 1200 F2 F1 .04 P2*2 .04 ,-1;
ENV 0 .5 D 2000 F2 F1 .08 1 .08 0;
P10=-1;
ENV .5 .5 F; < P4 to P9 remain the same.
ENV 1 .5 CS 2000 F2 F1 .08 .5 .08 1;
FINI;
< ENVELOPE GENERATOR ENV PorB, ForP, B, P, P, P, P, P;
< AMPL FUNC OUT ATCK STDY DCAY FLAG STOR
< FLAG=1=NO CONTINUATION, REINITS FOR EACH NOTE AND CAN PLAY ON TOP OF SELF.
< FLAG=0=INIT CONTINUATION FOR SEVERAL NOTES UNDER 1 ENV.
< -1=CONTINUATION (USE DIFFERENT INS. NUMS FOR CHORDS!!)
<ENV 0 .14 A*2 1200 F2 F1 .04 P2 .04 1;FINI;
< NOIS
INS 1;
NS1
;
OSC P4 P2 B2 P5;
RAH FP7 FP8 B3;
AD2 B3 FP3 B3;
OSC B2 B3 B2 P6;
OUT B2 B1;
END;
INS 2;
NS2
;
OSC P4 P2 B2 P5;
RAN FP7 FP8 B3;
AD2 B3 FP3 B3;
OSC B2 B3 B2 P6;
OUT B2 B1;
END;
SIN 1 1;
SEG 2 0 1 .8 7 1 12 1 90 0 100; <ENVELOPE
< The following will produce white noise.
SRATE=25600;
NS1 0 .5 C*8 400 F2 F1 P3 P3*8;
NS2 .5 .5 C*8 400 F2 F1 P3 3000;FINI;
< ISTR
SRT=12800;
CHA=2; < THE ARROWS OR = ARE NEEDED.
INS 8;
STER
;
OSC P4 P2 B3 P5;
OSC B3 FP3 B3 P6 ;
MLT P7 B3 B4;
SUB P8 P7 B2;
MLT B2 B3 B5;
STR B4,B5,B1;
END;
<GEN 0 1 1 .999 0 .999 255 .5 256 .5 490 0 511;
GEN 0 1 1 0 0 .9,32 .99,57 .9,430 .7,465 0 511; <F1 MEZZO LEG.
GEN 0 1 2 0 0 .99,16 .99,56 .4,159 .1,230 0,511; <F2 SEMI-STACC.
GEN 0 2 3 1 1; < SINE WAVE F3
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
STER 0 .2 A 1000 F1 F3 1 1;
P6=F3;
P7=0;STER .2 ;FINI;
< INRI
INS 1; < INSTRUMENT 1
TOOT
CLAR
BRIT
BUZZ
;
RAN FP7 FP8 B2;
AD2 FP3 B2 B2;
NOS P4 B2 B2 P6 ;
OUT B2 B1;END; < ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 2 0 0 .9,32 1,57 1,430 .7,465 0 511; <F2 MEZZO LEG.
GEN 0 1 3 0 0 1,16 1,56 .4,159 .1,230 0,511; <F3 SEMI-STACC.
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
GEN 0 2 1 1 1; <SINE WAVE
SRT←12800;
TOOT 0 .5 D*2 1000 F2 F1 P3*.05 9; FINI;
< IVIB
INS 1; < INSTRUMENT 1
TOOT
CLAR
BRIT
BUZZ
;
RAN FP7 FP8 B2;
AD2 FP3 B2 B2;
NOS P4 B2 B2 P6 ;
OUT B2 B1;END; < ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 2 0 0 .9,32 1,57 1,430 .7,465 0 511; <F2 MEZZO LEG.
GEN 0 1 3 0 0 1,16 1,56 .4,159 .1,230 0,511; <F3 SEMI-STACC.
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
GEN 0 2 1 1 1; <SINE WAVE
SRT←12800;
TOOT 0 .5 D*2 1000 F2 F1 P3*.05 9; FINI;
< INRH
INS 1; < INSTRUMENT 1
TOOT
CLAR
BRIT
BUZZ
;
OSC FP7 P2 B2 P9; < P9=SLOPE
RAH B2 DP8 B2;
AD2 FP3 B2 B2;
NOS P4 B2 B2 P6 ;
OUT B2 B1;END; < ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
SEG 6 0 1 1 100; <F6 SLOPE
GEN 0 1 2 0 0 .9,32 1,57 1,430 .7,465 0 511; <F2 MEZZO LEG.
GEN 0 1 3 0 0 1,16 1,56 .4,159 .1,230 0,511; <F3 SEMI-STACC.
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
GEN 0 2 1 1 1; <SINE WAVE
SRT←12800;
PLAY;TOOT 0 .4 A*2 1000 F2 F1 A .04 F6; FINI;
< IENV
INS 0 3; < INSTRUMENT 3
ENV
;
ENV P4 P5 B2 DP7 DP8 DP9;
OSC B2 FP3 B2 P6 ;
OUT B2 B1;END;
SEG 2 0 1 1 8 1 10 .5 25 .5 50 0 75 0 100; <F2 ENVELOPE
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
SIN 1 1; <F1 SINE WAVE
SEG 5 1 1 1 50 ,-1 50.3, -1 100; <F5 SQUARE WAVE.
SRT←12800;
PLAY;ENV 0 .04 A*2 1200 F2 F5 .01 P2 .01;
FINI;
< REV1 AND REV2
INS 1; < INSTRUMENT 1
TOOT
;
OSC P4 FP3 B2 P6 ;
MLT P8 B2 B3; MLT P7 B2 B2;OUT B2 B1;END;
<P7 = DIRECT P8=REVERB
SEG 3 1 1 1 100; <F3 LINE
GEN 0 2 1 1 1; <SINE WAVE
SEG 2 1 1 1 50,-1 50.3, -1 100;<F2 SQUARE
INS 15;
REV
;
REV B3 B4 P3;
OUT B4 B1;END;
SRT←12800;
SIN 2 1 ;
<PLAY;TOOT 0 .03 A*2 1000 F2 F2 1 .15;
<REV 0 1 1;
PLAY;TOOT 0 .03 A*2 1000 F2 F2 1 .2;
REV 0 4; TOOT .3 .03 FS*2; TOOT .6 .03 D*2;
TOOT .75 .03 CS*4;FINI;
FINI;
< ST1
TOOT ; COMMENTS ********
P5 .5 "F2" .5 "F3";
P2 RH/4//8/REP 3 3;FINE
P3 NO/A(C5/D/E/F/G)/@$A-2/FINE;
P9 1 P7,P8; P7 NU/1/4/P9; P8 NU/2/-2;
DF P9;
RR .5;
RD .2;
P4 800 ;
P6 FUN/1/4/5;
END;
TEMPO/3 60/112;
< ST2
TOOT 0 22; COMMENTS ********
P2 RH/4//8/;
P3 NO/C4/CS6/D2/DS4/E5;
CON "*2";
P4 800 ;
P5 .5 "F2" .5 "F3";
P6 FUN/1/4/5;
END;
CLAR 2 22;
DUPL 1;
P7 FUN/6/5/4; END;
TEMPO/120;
< ST3
TOOT 0 22; COMMENTS ********
P2 RH/4//8/;
P3 ALL NO/C0/CS8/D2/DS4/E5;
CON ALL "*2";
P4 ALL 800 ;
P5 ALL .5 "F2" .5 "F3";
P6 FUN/1/4/5;
END;
CLAR 2 22;
P2 RH/16//8/;
P4 "*.333 P4";
P6 FUN/1/5/4; END;
TEMPO/120;
< ST4
TOOT 0 10; COMMENTS ********
P2 RH/4//8/;
P3 NO/C4/CS/D/DS/E;
P4 1 300 1000;
P5 F2; P6 F1;
END;
TOOT 1 3;
P4 "444444";END;
TOOT 6;
P4 P2;END;
< ST5
TOOT 0 10;
P2 RH/4//8/;
P3 NO/C4:CS:D/DS/E;
P4 ALL MOVE/5 100 1000/5 1000 100;
P5 F2; P6 F1;
END;
CLAR IEND 4 12;
P2 RH/4//8/;
P3 NO/C4:CS:D/DS/E;
P7 MOVE/5 100 1000/5 1000 100;
P5 F2; P6 F5;
END;
< ST6
TOOT 0 10;
P2 RH/4//8/16X2;
P3 NO/C6/CS:D/DS2/E;
P4 MOVE/5 100 1000/5 1000 100;
END;
TEMPO / 4 60 240/ 120;
RUN ;